home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / misc / start.dxr / 00107.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  238 b   |  13 lines
  1. on exitFrame
  2.   puppetSprite(4, 1)
  3.   repeat with n = 1 to 1900
  4.     if the mouseDown then
  5.       exit repeat
  6.     end if
  7.     set the locH of sprite 4 to the locH of sprite 4 - 1
  8.     updateStage()
  9.   end repeat
  10.   puppetSprite(4, 0)
  11.   go(2)
  12. end
  13.